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-- file: OpTable.mesa 

*- edited by Sandman, July 17, 1977 8:51 

DIRECTORY 

AUoDefs: FROM "altodefs", 
InlineDefs: FROM "inlinedefs", 
ListerOefs: FROM "1 isterdefs" ; 

DEFINITIONS FROM AltoDefs, InlineDefs; 

OpTable: PROGRAM EXPORTS ListerOefs = 
BEGIN 

P: TYPE = PRIVATE RECORD [sO. sl: Q]; 

Q: TYPE = PRIVATE RECORD [push, pop: [0. 



PM 



OpParms: PRIVATE ARRAY [0 



NOOP 
P[Q[0,0,0] 

NOOP 
P[QCO.O.O] 

LGO 
PCQ[1.0,1] 

LG4 
P[Q[1.0.1] 

LGB 
P[Q[1.0.2] 

SG2 

P[Q[0.1,1] 

LLO 
P[Q[1,0.1] 

LL4 
P[Q[1,0.1] 

LLB 
P[Q[1,0.2] 

SL2 
P[Q[0.1.1] 

SL6 

P[Q[0,1.1] 

LIO 
P[Q[1,0,1] 

LI4 
P[Q[1,0,1] 

LIB 

P[0[1.0.2] 

LGDB 
P[Q[2,0,2] 

LLDB 
P[Q[2.0.2] 

RO 
P[Q[l.l.l] 

R4 

P[Q[1.1.1] 

W2 

P[Q[0.2,1] 



NOOP 
QCO.0,0]] 

NOOP 
QCO.0.0]] 

LGl 

Q[i.o.i]3 

LG6 
QCl.O.l]] 

LGS 

QCi.i.i]] 

SG3 
QCO.1.1]] 

LLl 
QCl.0.1]] 

LL5 
Q[l,0.1]] 

LLS 
QCl.1.1]] 

SL3 
QCO.1.1]] 

SL7 

OCO.1.1]] 

LIl 

QCi.0.1]] 

LI5 
QCl.0,1]] 

LIW 
Q[1.0.3]] 

LGDS 
QC2.1.1]] 

LLDS 
Q[2,l,l]] 

Rl 

QCi.1.1]] 

RB 
Q[l,t.2]] 

WB 
Q[0,2.2]] 



.4008/2) OF P 
NOOP 
P[Q[0.0.0] 

NOOP 

PCO[0.0.0] 

LG2 

PCQCl.0.1] 

LG6 
PCQ[1.0,1] 

SGO 
P[QC0.1.1] 

SGB 
P[Q[0.1,2] 

LL2 

PCQ[i.o.i] 

LL6 

PCQ[1.0.1] 

SLO 
P[Q[0,1.1] 

SL4 
P[Q[0,1,1] 

SLB 

PC0[0.1,2] 

LI2 

P[Q[1.0.1] 

LI6 

PCQCi.0.1] 

LINB 
PCQCl.0.2] 

SGDB 
P[Q[0.2,2] 

SLDB 

P[Q[0.2,2] 

R2 

P[Q[l.l.l] 

wo 

P[Q[0,2.1] 

RF 

P[Q[1,1.3] 



.7], length 

' C 

NOOP 

QCO.0.0]] 

NOOP 
QCO.0.0]] 

LG3 

QCi.0.1]] 

LG7 
QCl.0,1]] 

SGI 
QC0,1,1]] 

SGS 
QCO.2.1]] 

LL3 
QCl.0.1]] 

LL7 
QCl.0.1]] 

SLl 
QCO.1.1]] 

SL5 
QC0,1.1]] 

SLS 
QCO.2.1]] 

LI3 
QCl.0.1]] 

LINl 

QCl.0.1]] 

NOOP 
QCO.O.O]] 

SGDS 
QCO.3.1]] 

SLDS 
QCO.3.1]] 

R3 

QCi.1.1]] 

wi 
Q[0,2.1]] 

WF 
Q[0.2,3]] 



CO. .3]]: 



RDB. 



RDO, 



WDB, 



WOO. 
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PCQC2,1,2]. Q[2,l.l]]. P[QC0.3.2]. Q[0.3.1]]. 



RSTR 
P[Q[1,2.2] 

RXL2 
PCQ[1,1.1] 

RIGl 
P[Q[1.0.1] 

RILO 

PCQCi.0.1] 

WILO 

PCQCO.1.1] 

WSDB 
P[Q[0.3,2] 

JIE 
PCQ[0,0,1] 

JIO 

PCQ[o.o.i] 

JBE 
P[Q[0.0.23 

NJBE 
P[Q[0.0.2] 

JEQ3E 
P[Q[0.2,1] 

JEQ30 
P[Q[0,2,1] 

JNEIE 
P[Q[0,2.1] 

JNEIO 
P[QC0,2,1] 

JNEBE 
P[Q[0,2,23 

JGEBE 
P[Q[0,2,2] 

JLE8E 
P[Q[0,2.2] 

JUGEBE 
P[Q[0,2,2] 

JULEBE 
P[Q[0,2.2] 

JZNEBE 
P[Q[0,1.2] 

JDNEBE 
P[Q[0,4.2] 

NOOP 
P[Q[0.0.0] 

ADD 

P[Q[1.2.1] 

DTV 

P[Q[2.2,1] 

AND 
P[Q[1.2,l] 



WSTR 
QC0,3.2]] 

RXL3 
QCl.1.1]] 

RIG2 
QCl.O.l]] 

RILl 
QCl.O.l]] 

WSO 
Q[0,2.1]] 

WSDS 
QCO.3.1]] 

J2E 

Q[0.0,1]] 

J20 

QCO.0.1]] 

JBO 
QCO.0,2]] 

NJBO 
Q[0.0,2]] 

JEQ4E 
Q[0.2,l]] 

JEQ40 
QCO.2.1]] 

JNE2E 
QCO.2.1]] 

JNE20 
QCO.2.1]] 

JNEBO 
QCO.2.2]] 

JGEBO 
QCO.2.2]] 

JLEBO 
QC0,2.2]] 

JUGEBO 
QC0,2.2]] 

JULEBO 
QCO.2,2]] 

JZNEBO 
QCO.1,2]] 

JDNEBO 
Q[0.4,2]] 

NOOP 
0[0.0,0]] 

SUB 
Q[t.2,l]] 

LDTV 
Q[2.3.t]] 

OR 
QCl.2.1]] 



RXLO 

PCQCi.1.1] 

WXLO 

PCQCO.2.1] 

RIG3 

PCQCi.0.1] 

RIL2 

PCQCi.0.1] 

WSB 
PCQCO.2.2] 

NOOP 

PCQCO.o.o] 

J3E 

PCQCO.0,1] 

J30 

PCQCO.0.1] 

JWE 

PCQC0,0,3] 

JEQIE 

PCQCO.2.1] 

JEQIO 
PCQCO.2,1] 

JEQBE 
PCQCO.2.2] 

JNE3E 
PCQCO.2.1] 

JNE30 

PCQCO.2.1] 

JLBE 
PCQCO.2,2] 

JGBE 

PCQCO.2.2] 

JULBE 
PCQC0,2.2] 

JUGBE 
PCQC0,2.2] 

JZEQBE 

PCQCO.1.2] 

JDEQBE 
PCQCO.4.2] 

JIB 

P[Q[0.2,3] 

NOOP 
PCQCO.O.O] 

MUL 
PCQC^.2,1] 

NEG 
PCQC^.M] 

XOR 

PCQC^.2.1] 



RXLl 

QCl^l.l]] 

RIGO 
QCl.O.l]] 

WIGO 
QCO.1.1]] 

RIL3 

QCi.0,1]] 

WSF 
QCO.2.3]] 

NOOP 
QCO.O.O]] 

J4E 

QCO.0.1]] 

J40 
QCO.0.1]] 

JWO 
QCO.0.3]] 

JEQ2E 
QCO.2.1]] 

JEQ20 
QC0,2.1]] 

JEQBO 
QCO.2.2]] 

JNE4E 
QCO.2.1]] 

JNE40 
QCO.2.1]] 

JLBO 
QCO.2.2]] 

JG80 
QCO.2.2]] 

JULBO 
QCO.2.2]] 

JUGBO 
QCO.2.2]] 

JZEQBO 
QCO.1.2]] 

JDEQBO 
QCO.4.2]] 

JIW 
QC0,2,3]] 

NOOP 
QCO.O.O]] 

DBL 

QCt.1.1]] 

INC 

QCi.M]] 

SHin 
QCt.2,1]] 
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UCOMP 
P[Q[1.2.1] 

PUSH 
P[Q[1.0.1] 

DUP 
P[Q[2,1,1] 

GFCO 
PCQCO.0.1] 

GFC4 

PCQ[o.o.i] 

GFC8 
P[Q[0,0.1] 

GFC12 
P[Q[0,0.1] 

GFCB 
P[Q[0,0.2] 

LFC4 
P[Q[0.0,1] 

LFC8 
P[0C0,0.1] 

LFC12 
PCQCO.0.1] 

LFC16 

PCQCO.o.i] 

NOOP 
PCQCO.0.0] 

ADDL 

FREE. 
PCQCO.1.1] 

STOP 
P[0C0,0,1] 

BITBLT 

PCOCO,i.i] 

DST 
PCQCO.0,2] 

WR 

PCQCO.1.2] 



NOOP 
QCO.O.O]] 

POP 
QCO.l.l]] 

NOOP 
QCO.0.0]] 

GFCl 
QCO.o.i]] 

GFC5 
QCO.0.1]] 

GFC9 
QCO.0.1]] 

GFC13 
QCO.0,1]] 

LFCl 
QCO.0.1]] 

LFC5 
QCO.O.l]] 

LFC9 
QCO.0.1]] 

LFC13 
QCO.0.1]] 

LFCB 
QCO.0,2]] 

PORTO 
QCO.1.1]] 

ADDG 
QCl.1.1]] 

I woe 

QCO.0.1]] 

CATCH. 
QC0,0,2]] 

STARTIO 
QCO.1,1]] 

LST 

QCO.0.2]] 

RR 
QCi.0.2]] 



NOOP 

PCQCO.o.o] 

EXCH 
PCQC2.2.1] 

NOOP 

PCQCO.O.O] 

GFC2 

PCQCO.0,1] 

GFC6 

PCQCO.0.1] 

GFCIO 

PCQCO.0,1] 

GFC14 

PCQCO.0,1] 

LFC2 

PCQCO.0,1] 

LFC6 

PCQCO.0,1] 

LFCIO 

PCQCo.o.i] 

LFC14 

PCQCO.O.I] 

SFC 

PCQCO.1.1] 

PORTI 

PCQCO.0,1] 

BLT 

PCQC0,3.i] 

DWDC 

PCQCO.0,1] 

CONVERT 
PCQC3.5.1] 

NOOP 
PCQCO.O.O] 

LSTF 
PCQC0,0,2] 

BRK 
PCQCO.0,1] 



NOOP 
QCO.0.0]] 

PUSHX 

QCl.0.1]] 

NOOP 
QCO.0,0]] 

GFC3 
QCO.0.1]] 

GFC7 
QCO.0.1]] 

GFCll 
QCO.0.1]] 

GFC15 
QCO.O.l]] 

LFC3 
QCO.O.l]] 

LFC7 
QCO.O.l]] 

LFCll 
QCO.O.l]] 

LFC15 
QCO.O.l]] 

RET 
QCO.O.l]] 

KFCB 
QCO.0.2]] 

ALLOC 

QCi.1.1]] 

NOOP 
QCO.0.0]] 

BLOCK 
QCO.0,1]] 

NOOP 
QCO.0,0]] 

NOOP 
QCO.0.0]] 

NOOP. 
QCO.0.0]]]; 



pushstack: PUBLIC PROCEDURE [b: BYTE] RETURNS CC0..7]] = 
BEGIN 

RETURN[getQrecordCb].push] 
END; 

popstack: PUBLIC PROCEDURE [b: BYTE] RETURNS CC0..7]] = 
BEGIN 

RETURN[getQrecord[b].pop] 
END; 



instlength: PUBl IC PROCEDURE Cb: BYTE] RETURNS CC0..3]] 
BEGIN 

RE TURN[getQrecorcl[b]. length] 
END; 
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getQrecord: PROCEDURE [b: BYTE] RETURNS [Q] » 
BEGIN 
1, j: CARDINAL; 



[i. j] ♦- DIVMOOCbi 2]; 

RETURN[IF J = THEN OpParms[i ] . sO ELSE OpParfns[1] . si] 

END; 



END . 



